home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC Gamer (Italian) 24
/
PC Gamer IT CD 24 2-2.iso
/
DESK95
/
search
/
SEARCH32.EX_
/
SEARCH32.EX
/
0
/
RCDATA
/
TFORMMAIN
/
TFORMMAIN.txt
< prev
Wrap
Text File
|
1997-03-15
|
43KB
|
1,687 lines
object FormMain: TFormMain
Left = 194
Top = 110
HelpContext = 1
AutoScroll = False
Caption = 'Search32 (Unregistered)'
ClientHeight = 392
ClientWidth = 577
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Icon.Data = {<image000.ico>}
KeyPreview = True
Position = poScreenCenter
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
OnDestroy = FormDestroy
OnKeyDown = FormKeyDown
OnResize = FormResize
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object tabMain: TPageControl
Left = 0
Top = 0
Width = 578
Height = 375
ActivePage = tabSearch
Font.Color = clBlack
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
TabStop = False
OnChange = tabMainChange
object tabSearch: TTabSheet
Caption = 'Search'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
object lblSearchIn: TLabel
Left = 19
Top = 10
Width = 48
Height = 13
Caption = 'Search in:'
FocusControl = txtStatus
end
object lblUsedIndex: TLabel
Left = 19
Top = 35
Width = 84
Height = 13
Caption = '&Index being used:'
FocusControl = cmbUsedIndex
end
object bvlSearchExpr: TBevel
Left = 4
Top = 61
Width = 563
Height = 51
Style = bsRaised
end
object lblSearchExpr: TLabel
Left = 19
Top = 68
Width = 116
Height = 13
Caption = 'Enter &search expression:'
FocusControl = cmbSearchExpr
end
object lblTotalFiles0: TLabel
Left = 407
Top = 68
Width = 78
Height = 13
Caption = 'Total files found:'
end
object lblTotalEntries0: TLabel
Left = 407
Top = 89
Width = 91
Height = 13
Caption = 'Total entries found:'
end
object lblTotalFiles1: TLabel
Left = 502
Top = 69
Width = 48
Height = 13
Alignment = taRightJustify
AutoSize = False
end
object lblTotalEntries1: TLabel
Left = 502
Top = 89
Width = 48
Height = 13
Alignment = taRightJustify
AutoSize = False
end
object lblFiles: TLabel
Left = 4
Top = 115
Width = 54
Height = 13
Caption = '&Files found:'
FocusControl = oxSplit
end
object lblEntries0: TLabel
Left = 4
Top = 330
Width = 66
Height = 13
AutoSize = False
Caption = '&Entries found:'
end
object lblEntries1: TLabel
Left = 71
Top = 330
Width = 41
Height = 13
Alignment = taRightJustify
AutoSize = False
end
object lblEntries2: TLabel
Left = 114
Top = 330
Width = 5
Height = 13
AutoSize = False
end
object lblEntries3: TLabel
Left = 120
Top = 330
Width = 41
Height = 13
AutoSize = False
end
object pnlSearchIn: TPanel
Left = 124
Top = 6
Width = 334
Height = 22
BevelOuter = bvLowered
TabOrder = 7
object txtSearchIn: TEdit
Left = 3
Top = 3
Width = 328
Height = 15
BorderStyle = bsNone
Color = clBtnFace
ReadOnly = True
TabOrder = 0
OnEnter = txtSearchInEnter
end
end
object cmbUsedIndex: TComboBox
Left = 123
Top = 31
Width = 170
Height = 21
HelpContext = 4
Style = csDropDownList
ItemHeight = 13
TabOrder = 0
OnClick = cmbUsedIndexClick
OnEnter = cmbUsedIndexEnter
end
object cmdSearchHelp: TButton
Left = 485
Top = 5
Width = 65
Height = 23
Caption = '&Help'
TabOrder = 2
OnClick = cmdSearchHelpClick
OnEnter = cmdSearchHelpEnter
end
object cmdExit: TButton
Left = 485
Top = 30
Width = 65
Height = 22
Caption = 'E&xit'
TabOrder = 3
OnClick = cmdExitClick
OnEnter = cmdExitEnter
end
object cmbSearchExpr: TComboBox
Left = 18
Top = 83
Width = 276
Height = 21
HelpContext = 5
ItemHeight = 13
TabOrder = 4
OnEnter = cmbSearchExprEnter
end
object cmdOK: TButton
Left = 295
Top = 82
Width = 65
Height = 23
Caption = '&OK'
Default = True
TabOrder = 5
OnClick = cmdOKClick
OnEnter = cmdOKEnter
end
object cmdUpdateIndex: TButton
Left = 295
Top = 31
Width = 164
Height = 21
HelpContext = 6
Caption = '&Update Index'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = cmdUpdateIndexClick
OnEnter = cmdUpdateIndexEnter
end
object oxSplit: ToxSplit
Left = 3
Top = 130
Width = 565
Height = 197
AutoUpdate = False
BarWidth = 7
SyncScroll = False
Style = oxsAuto
Color = clNone
ParentColor = False
TabOrder = 6
BarPosition = 93
Orientation = oxsHorz
object ToxScrollPane
Left = 2
Top = 2
Width = 561
Height = 91
BorderStyle = bsNone
TabOrder = 0
object lstFiles: TListBox
Left = 0
Top = 0
Width = 561
Height = 91
Align = alClient
BorderStyle = bsNone
ItemHeight = 13
Style = lbOwnerDrawFixed
TabOrder = 0
OnClick = lstFilesClick
OnDblClick = lstFilesDblClick
OnDrawItem = lstFilesDrawItem
OnEnter = lstFilesEnter
OnMouseDown = lstFilesMouseDown
end
object pnlResultsWarning: TPanel
Left = 372
Top = 1
Width = 170
Height = 14
BevelInner = bvRaised
BevelOuter = bvLowered
Caption = 'Warning! Index has been changed'
Color = clInfoBk
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
Visible = False
end
end
object ToxScrollPane
Left = 2
Top = 100
Width = 561
Height = 95
BorderStyle = bsNone
TabOrder = 1
object rtfEntries: TRichEditEx
Left = 0
Top = 0
Width = 561
Height = 95
Align = alClient
BorderStyle = bsNone
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
HideSelection = False
ParentFont = False
PlainText = True
PopupMenu = mnuRtf
ReadOnly = True
ScrollBars = ssBoth
TabOrder = 0
WantReturns = False
WordWrap = False
end
end
end
object scrNextPrev: TScrollBar
Left = 360
Top = 328
Width = 206
Height = 16
TabOrder = 8
Visible = False
OnScroll = scrNextPrevScroll
end
end
object tabIndexes: TTabSheet
Caption = 'Indexes'
Font.Color = clBlack
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
object lblFileNames: TLabel
Left = 19
Top = 13
Width = 117
Height = 13
Caption = 'Location of &files to index:'
FocusControl = txtFileNames
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object lblIndexName: TLabel
Left = 19
Top = 57
Width = 58
Height = 13
Caption = '&Index name:'
FocusControl = cmbIndexName
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object lblIndexFolder: TLabel
Left = 295
Top = 12
Width = 58
Height = 13
Caption = 'Index f&older:'
FocusControl = txtIndexFolder
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object lblNotes: TLabel
Left = 295
Top = 58
Width = 31
Height = 13
Caption = '&Notes:'
FocusControl = txtNotes
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 5
Top = 122
Width = 170
Height = 13
AutoSize = False
Caption = 'Current index statistics and options:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object bvlOptions: TBevel
Left = 4
Top = 248
Width = 563
Height = 93
end
object bvlStatistics: TBevel
Left = 4
Top = 138
Width = 563
Height = 87
end
object lblFileCount0: TLabel
Left = 19
Top = 145
Width = 147
Height = 13
AutoSize = False
Caption = 'Total number of indexed files:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object lblVolume0: TLabel
Left = 19
Top = 165
Width = 164
Height = 13
AutoSize = False
Caption = 'Total size of indexed files in bytes:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object lblFileCount1: TLabel
Left = 500
Top = 145
Width = 52
Height = 13
Alignment = taRightJustify
AutoSize = False
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object lblVolume1: TLabel
Left = 500
Top = 165
Width = 52
Height = 13
Alignment = taRightJustify
AutoSize = False
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object lblLanguage: TLabel
Left = 19
Top = 257
Width = 62
Height = 13
AutoSize = False
Caption = '&Language:'
FocusControl = cmbLanguage
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object lblMaxWordLen: TLabel
Left = 19
Top = 277
Width = 112
Height = 13
AutoSize = False
Caption = '&Maximum word length:'
FocusControl = txtMaxWordLen
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object lblMinWordLen: TLabel
Left = 19
Top = 297
Width = 106
Height = 13
AutoSize = False
Caption = '&Minimum word length:'
FocusControl = txtMinWordLen
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object lblCompactRatio: TLabel
Left = 19
Top = 317
Width = 103
Height = 13
AutoSize = False
Caption = 'Com&pacting ratio, %:'
FocusControl = txtCompactRatio
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object lblLastUpdated0: TLabel
Left = 19
Top = 205
Width = 69
Height = 13
AutoSize = False
Caption = 'Last updated:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object lblLastUpdated1: TLabel
Left = 426
Top = 205
Width = 126
Height = 13
Alignment = taRightJustify
AutoSize = False
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object lblWordCount0: TLabel
Left = 19
Top = 185
Width = 140
Height = 13
AutoSize = False
Caption = 'Total words in indexed files:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object lblWordCount1: TLabel
Left = 500
Top = 185
Width = 52
Height = 13
Alignment = taRightJustify
AutoSize = False
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object bvlAutoUpdate: TBevel
Left = 4
Top = 223
Width = 563
Height = 27
end
object txtFileNames: TEdit
Left = 19
Top = 27
Width = 186
Height = 21
HelpContext = 6
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
OnChange = txtFileNamesChange
OnEnter = txtFileNamesEnter
end
object cmdBrowse: TButton
Left = 207
Top = 27
Width = 65
Height = 23
HelpContext = 11
Caption = '&Browse...'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = cmdBrowseClick
OnEnter = cmdBrowseEnter
end
object cmbIndexName: TComboBox
Left = 19
Top = 71
Width = 186
Height = 21
HelpContext = 6
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 0
ParentFont = False
TabOrder = 2
OnChange = cmbIndexNameChange
OnClick = cmbIndexNameClick
OnEnter = cmbIndexNameEnter
end
object cmdUpdate: TButton
Left = 207
Top = 70
Width = 65
Height = 23
HelpContext = 6
Caption = '&Create'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
OnClick = cmdUpdateClick
OnEnter = cmdUpdateEnter
end
object cmdRemove: TButton
Left = 207
Top = 95
Width = 65
Height = 23
HelpContext = 6
Caption = '&Remove'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 4
OnClick = cmdRemoveClick
OnEnter = cmdRemoveEnter
end
object pnlIndexFolder: TPanel
Left = 295
Top = 27
Width = 191
Height = 22
BevelOuter = bvLowered
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 5
object txtIndexFolder: TEdit
Left = 3
Top = 4
Width = 187
Height = 16
HelpContext = 7
BorderStyle = bsNone
Color = clBtnFace
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 0
OnEnter = txtIndexFolderEnter
end
end
object cmdIndexesHelp: TButton
Left = 488
Top = 2
Width = 63
Height = 23
Caption = '&Help'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 6
OnClick = cmdIndexesHelpClick
OnEnter = cmdIndexesHelpEnter
end
object cmdChange: TButton
Left = 488
Top = 27
Width = 63
Height = 23
HelpContext = 7
Caption = 'C&hange'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 7
OnClick = cmdChangeClick
OnEnter = cmdChangeEnter
end
object txtNotes: TEdit
Left = 295
Top = 72
Width = 257
Height = 45
HelpContext = 13
AutoSize = False
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 8
OnEnter = txtNotesEnter
end
object cmbLanguage: TComboBox
Left = 376
Top = 254
Width = 155
Height = 21
HelpContext = 12
Style = csDropDownList
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 0
ParentFont = False
Sorted = True
TabOrder = 10
OnEnter = cmbLanguageEnter
end
object txtMaxWordLen: TEdit
Left = 533
Top = 276
Width = 20
Height = 21
HelpContext = 12
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
MaxLength = 2
ParentFont = False
ReadOnly = True
TabOrder = 12
Text = '32'
OnEnter = txtMaxWordLenEnter
end
object txtMinWordLen: TEdit
Left = 533
Top = 295
Width = 20
Height = 21
HelpContext = 12
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
MaxLength = 2
ParentFont = False
ReadOnly = True
TabOrder = 13
Text = '2'
OnEnter = txtMinWordLenEnter
end
object txtCompactRatio: TEdit
Left = 533
Top = 314
Width = 20
Height = 21
HelpContext = 12
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
MaxLength = 2
ParentFont = False
ReadOnly = True
TabOrder = 14
Text = '50'
OnEnter = txtCompactRatioEnter
end
object chkAutoUpdate: TCheckBox
Left = 19
Top = 229
Width = 142
Height = 16
HelpContext = 12
Caption = '&Automatically updateable'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 9
OnClick = chkAutoUpdateClick
OnEnter = chkAutoUpdateEnter
end
object cmdDots: TBitBtn
Left = 533
Top = 255
Width = 20
Height = 19
Font.Color = clBlack
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 11
OnClick = cmdDotsClick
OnEnter = cmdDotsEnter
Glyph.Data = {
C6000000424DC60000000000000076000000280000000A0000000A0000000100
0400000000005000000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777700
0000777777777700000077777777770000007777777777000000007700770000
0000007700770000000077777777770000007777777777000000777777777700
00007777777777000000}
end
object txtLanguage: TEdit
Left = 375
Top = 254
Width = 156
Height = 21
TabStop = False
AutoSelect = False
Enabled = False
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 15
end
end
object tabProperties: TTabSheet
Caption = 'Properties'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
OnEnter = tabPropertiesEnter
object boxProperties: TScrollBox
Left = 0
Top = 0
Width = 570
Height = 344
HelpContext = 18
HorzScrollBar.Visible = False
VertScrollBar.Margin = 20
Align = alClient
BorderStyle = bsNone
TabOrder = 0
object Shape1: TShape
Left = 341
Top = 75
Width = 56
Height = 3
Pen.Color = clGray
end
object Shape2: TShape
Left = 341
Top = 135
Width = 56
Height = 3
Pen.Color = clGray
end
object Shape3: TShape
Left = 341
Top = 195
Width = 56
Height = 3
Pen.Color = clGray
end
object Label1: TLabel
Left = 28
Top = 210
Width = 27
Height = 13
Caption = '&Ctrl +'
FocusControl = cmbHotKeys
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object imgDeleted: TImage
Left = 19
Top = 330
Width = 51
Height = 13
Picture.Data = {<image001.bmp>}
Visible = False
end
object ImgRedSun: TImage
Left = 78
Top = 312
Width = 32
Height = 32
AutoSize = True
Picture.Data = {<image002.ico>}
Visible = False
end
object ImgSun: TImage
Left = 118
Top = 312
Width = 32
Height = 32
AutoSize = True
Picture.Data = {<image003.ico>}
Visible = False
end
object imgModified: TImage
Left = 156
Top = 330
Width = 54
Height = 13
Picture.Data = {<image004.bmp>}
Visible = False
end
object chkStartup: TCheckBox
Left = 28
Top = 27
Width = 124
Height = 16
Caption = 'Run at Windows &start'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
OnClick = chkStartupClick
OnEnter = chkStartupEnter
end
object Text1: TMemo
Left = 193
Top = 28
Width = 351
Height = 40
TabStop = False
BorderStyle = bsNone
Color = clBtnFace
Lines.Strings = (
'Select this if you want "Search32" to run at every Windows start' +
'. This eliminates you from placing "Search32" shortcut into "Sta' +
'rtUp" folder by yourself.')
ReadOnly = True
ScrollBars = ssVertical
TabOrder = 1
WordWrap = False
end
object chkUpdateAtStart: TCheckBox
Left = 28
Top = 87
Width = 147
Height = 16
Caption = '&Update all indexes at start'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
OnEnter = chkUpdateAtStartEnter
end
object Text2: TMemo
Left = 193
Top = 88
Width = 351
Height = 40
TabStop = False
BorderStyle = bsNone
Color = clBtnFace
Lines.Strings = (
'Select this if you want "Search32" to update all the indexes whe' +
'never it starts. This will ensure that all relevant files modifi' +
'cations, deletions and creations will be taken properly into acc' +
'ount.')
ReadOnly = True
ScrollBars = ssVertical
TabOrder = 3
WordWrap = False
end
object chkRunMinimized: TCheckBox
Left = 28
Top = 147
Width = 97
Height = 16
Caption = 'Run &minimized'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 4
OnEnter = chkRunMinimizedEnter
end
object Text3: TMemo
Left = 193
Top = 148
Width = 351
Height = 40
TabStop = False
BorderStyle = bsNone
Color = clBtnFace
Lines.Strings = (
'Select this if you want "Search32" to appear minimized on the ta' +
'skbar upon starting.')
ReadOnly = True
ScrollBars = ssVertical
TabOrder = 5
WordWrap = False
end
object Text4: TMemo
Left = 193
Top = 208
Width = 351
Height = 40
TabStop = False
BorderStyle = bsNone
Color = clBtnFace
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Lines.Strings = (
'Choose "Search32" hot keys combination from the list of availabl' +
'e ones. To search for a word from within any program just select' +
' it and press the hot key combination.')
ParentFont = False
ReadOnly = True
ScrollBars = ssVertical
TabOrder = 6
WordWrap = False
end
object cmbHotKeys: TComboBox
Left = 62
Top = 207
Width = 44
Height = 21
Style = csDropDownList
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 13
Items.Strings = (
'A'
'B'
'C'
'D'
'E'
'F'
'G'
'H'
'I'
'J'
'K'
'L'
'M'
'N'
'O'
'P'
'Q'
'R'
'S'
'T'
'U'
'V'
'W'
'X'
'Y'
'Z')
ParentFont = False
TabOrder = 7
OnClick = cmbHotKeysClick
OnEnter = cmbHotKeysEnter
end
object cmdCustLangs: TButton
Left = 28
Top = 270
Width = 137
Height = 23
Caption = 'Customize &Languages...'
TabOrder = 8
OnClick = cmdCustLangsClick
OnEnter = cmdCustLangsEnter
end
object Text5: TMemo
Left = 193
Top = 268
Width = 351
Height = 40
TabStop = False
BorderStyle = bsNone
Color = clBtnFace
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Lines.Strings = (
'Press the button to launch "Search32 Language Maker" utility to ' +
'customize existing languages or to create a new ones.')
ParentFont = False
ReadOnly = True
ScrollBars = ssVertical
TabOrder = 9
WordWrap = False
end
end
end
object tabViewOptions: TTabSheet
Caption = 'View Options'
OnEnter = tabViewOptionsEnter
object boxViewOptions: TScrollBox
Left = 0
Top = 0
Width = 570
Height = 344
HelpContext = 20
HorzScrollBar.Visible = False
Align = alClient
BorderStyle = bsNone
TabOrder = 0
object Shape5: TShape
Left = 341
Top = 75
Width = 56
Height = 3
Pen.Color = clGray
end
object Shape6: TShape
Left = 341
Top = 135
Width = 56
Height = 3
Pen.Color = clGray
end
object Shape7: TShape
Left = 341
Top = 195
Width = 56
Height = 3
Pen.Color = clGray
end
object chkPrevSel: TCheckBox
Left = 27
Top = 27
Width = 149
Height = 13
Caption = '&Stay on previously selected'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
OnClick = chkPrevSelClick
OnEnter = chkPrevSelEnter
end
object Text6: TMemo
Left = 193
Top = 28
Width = 351
Height = 40
TabStop = False
BorderStyle = bsNone
Color = clBtnFace
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Lines.Strings = (
'If checked, while getting a search query results, the system is ' +
'trying to stay on the file that have been last selected in previ' +
'ous search results. Otherwise, the first file in the list is sel' +
'ected.')
ParentFont = False
ReadOnly = True
ScrollBars = ssVertical
TabOrder = 1
WordWrap = False
end
object chkWordWrap: TCheckBox
Left = 27
Top = 87
Width = 85
Height = 16
Caption = '&Word wrap'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
OnClick = chkWordWrapClick
OnEnter = chkWordWrapEnter
end
object Text7: TMemo
Left = 193
Top = 88
Width = 351
Height = 40
TabStop = False
BorderStyle = bsNone
Color = clBtnFace
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Lines.Strings = (
'Specifies whether or not text appears wrapped in the file view w' +
'indow.')
ParentFont = False
ReadOnly = True
ScrollBars = ssVertical
TabOrder = 3
WordWrap = False
end
object Text8: TMemo
Left = 193
Top = 148
Width = 351
Height = 40
TabStop = False
BorderStyle = bsNone
Color = clBtnFace
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Lines.Strings = (
'Select a font for the text in the file view window.')
ParentFont = False
ReadOnly = True
ScrollBars = ssVertical
TabOrder = 5
WordWrap = False
end
object cmdFont: TButton
Left = 27
Top = 147
Width = 65
Height = 23
Caption = '&Font...'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 4
OnClick = cmdFontClick
OnEnter = cmdFontEnter
end
object cmdBackColor: TButton
Left = 27
Top = 207
Width = 125
Height = 23
Caption = '&Background Color...'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 6
OnClick = cmdBackColorClick
OnEnter = cmdBackColorEnter
end
object Text9: TMemo
Left = 193
Top = 208
Width = 351
Height = 40
TabStop = False
BorderStyle = bsNone
Color = clBtnFace
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Lines.Strings = (
'Select background color for the text in the file view window.')
ParentFont = False
ReadOnly = True
ScrollBars = ssVertical
TabOrder = 7
WordWrap = False
end
end
end
object tabMonitoring: TTabSheet
HelpContext = 21
Caption = 'Monitoring'
object fraMonitoring2: TGroupBox
Left = 3
Top = 38
Width = 564
Height = 303
TabOrder = 0
object lblDirsOff1: TLabel
Left = 21
Top = 19
Width = 134
Height = 13
AutoSize = False
Caption = 'E&xclude from monitoring:'
FocusControl = lstDirsOff
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object lblDirsOff2: TLabel
Left = 333
Top = 19
Width = 88
Height = 17
AutoSize = False
Caption = 'Select a &folder:'
FocusControl = dirDirsOff
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object lblDirsOff3: TLabel
Left = 336
Top = 232
Width = 82
Height = 13
AutoSize = False
Caption = 'Select a &drive:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object lstDirsOff: TListBox
Left = 21
Top = 33
Width = 208
Height = 187
ExtendedSelect = False
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 13
ParentFont = False
TabOrder = 0
OnEnter = lstDirsOffEnter
end
object cmdAddDirsOff: TButton
Left = 248
Top = 129
Width = 70
Height = 23
Caption = '<< &Add'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
OnClick = cmdAddDirsOffClick
OnEnter = cmdAddDirsOffEnter
end
object cmdRemoveDirsOff: TButton
Left = 248
Top = 164
Width = 70
Height = 23
Caption = '&Remove >>'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 4
OnClick = cmdRemoveDirsOffClick
OnEnter = cmdRemoveDirsOffEnter
end
object dirDirsOff: TDirectoryListBox
Left = 336
Top = 33
Width = 208
Height = 187
Ctl3D = True
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 16
ParentCtl3D = False
ParentFont = False
TabOrder = 5
OnEnter = dirDirsOffEnter
end
object drvDirsOff: TDriveComboBox
Left = 336
Top = 247
Width = 208
Height = 19
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 6
OnChange = drvDirsOffChange
end
object chkIndexFolderOff: TCheckBox
Left = 43
Top = 242
Width = 160
Height = 13
Caption = 'Not to monitor &Index folder'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
State = cbChecked
TabOrder = 1
OnClick = chkIndexFolderOffClick
OnEnter = chkIndexFolderOffEnter
end
object chkWindowsFolderOff: TCheckBox
Left = 43
Top = 269
Width = 176
Height = 13
Caption = 'Not to monitor &Windows folder'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
State = cbChecked
TabOrder = 2
OnClick = chkWindowsFolderOffClick
OnEnter = chkWindowsFolderOffEnter
end
end
object fraMonitoring1: TGroupBox
Left = 3
Top = 5
Width = 564
Height = 42
TabOrder = 1
object lblMonitoring: TLabel
Left = 21
Top = 17
Width = 55
Height = 18
AutoSize = False
Caption = 'Monitoring:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object radNormal: TRadioButton
Left = 102
Top = 16
Width = 54
Height = 18
Caption = '&Normal'
Checked = True
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
TabStop = True
OnClick = radNormalClick
OnEnter = radNormalEnter
end
object radSuspended: TRadioButton
Left = 167
Top = 16
Width = 74
Height = 18
Caption = 'Sus&pended'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = radSuspendedClick
OnEnter = radSuspendedEnter
end
end
end
object tabReg: TTabSheet
Caption = 'Registration'
OnEnter = tabRegEnter
object cmdRegister: TButton
Left = 27
Top = 27
Width = 85
Height = 23
Caption = '&Register...'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
OnClick = cmdRegisterClick
OnEnter = cmdRegisterEnter
end
object Text11: TMemo
Left = 193
Top = 28
Width = 351
Height = 40
TabStop = False
BorderStyle = bsNone
Color = clBtnFace
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Lines.Strings = (
'Displays the form for entering registration number and password ' +
'and filling the Registration form.')
ParentFont = False
ReadOnly = True
ScrollBars = ssVertical
TabOrder = 1
WordWrap = False
end
end
end
object txtStatus: TEdit
Left = 1
Top = 377
Width = 508
Height = 15
TabStop = False
BorderStyle = bsNone
Color = clBtnFace
ReadOnly = True
TabOrder = 1
OnChange = txtStatusChange
end
object prgBar: TProgressBar
Left = 512
Top = 380
Width = 63
Height = 10
Min = 0
Max = 100
TabOrder = 2
Visible = False
end
object ComDlg: TOpenDialog
FileEditStyle = fsEdit
Filter = 'Executables (*.exe)|*.exe'
Title = 'Choose a right-click file viewer'
Left = 258
Top = 379
end
object DdeClientConv1: TDdeClientConv
ServiceApplication = 'Progman'
DdeService = 'Progman'
DdeTopic = 'Progman'
Left = 222
Top = 379
LinkInfo = (
'Service Progman'
'Topic Progman')
end
object Timer1: TTimer
Interval = 100
OnTimer = Timer1Timer
Left = 186
Top = 379
end
object tmEntriesDelay: TTimer
Enabled = False
Interval = 200
OnTimer = tmEntriesDelayTimer
Left = 300
Top = 377
end
object mnuRtf: TPopupMenu
OnPopup = mnuRtfPopup
Left = 148
Top = 379
object mnuSearchSelWord: TMenuItem
Caption = 'Search for Selected Word'
ShortCut = 0
OnClick = mnuSearchSelWordClick
end
object mnuWithinFound: TMenuItem
Caption = 'Search among Files Found'
ShortCut = 0
OnClick = mnuWithinFoundClick
end
object mnuLine1: TMenuItem
Caption = '-'
ShortCut = 0
end
object mnuPrevSel: TMenuItem
Caption = 'Stay on Previously Selected'
ShortCut = 0
OnClick = mnuPrevSelClick
end
object mnuWordWrap: TMenuItem
Caption = 'Word Wrap'
ShortCut = 0
OnClick = mnuWordWrapClick
end
object mnuFont: TMenuItem
Caption = 'Font...'
ShortCut = 0
OnClick = mnuFontClick
end
object mnuBackColor: TMenuItem
Caption = 'Background Color...'
ShortCut = 0
OnClick = mnuBackColorClick
end
object mnuFullView: TMenuItem
Caption = 'Full Window View'
ShortCut = 0
OnClick = mnuFullViewClick
end
end
object FontDialog1: TFontDialog
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
MinFontSize = 0
MaxFontSize = 0
Left = 337
Top = 376
end
object ColorDialog1: TColorDialog
Ctl3D = True
Color = clWindow
Options = [cdSolidColor]
Left = 376
Top = 378
end
end